home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / us.arc / PUTPIC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-01-16  |  660 b   |  21 lines
  1. Procedure getpic( VAR picname:str20);
  2. {This procedure will clear the screen and display the picture
  3.  in the named file}
  4.  
  5. Begin
  6.    Window(1,1,80,25);
  7.    Clrscr;                              {Clear Screen}
  8.    For i:=1 to 24 do Screen[i]:='';
  9.    Assign(Source,Picname);              {Assign pic name to be displayed}
  10.    Reset(Source);
  11.    i:=1;
  12.    While not EOF(Source) do             {Read picture and put in array}
  13.       begin
  14.         Readln(Source,Line);
  15.         Screen[i]:=Line;
  16.         Fastwrite(Screen[i],7,0,2);     {Display picture}
  17.         i:=i+1;
  18.       end;
  19.    Snapshot(1);                         {Save picture for future use}
  20. end;
  21.